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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
16 
19 
?0 
21 
22 
23 
24 
25 
26 
27 
28 
29 
^0 
31 
32 
33 
34 
3 5 
36 
3 7 
38 
3 9 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 

?0 

51 
52 
53 
54 
55 
55 



00PI0!3U 



51000!"0 
PI000?1 
00005^2 
0000?'3 
000004 
000005 
000076 
0000«"7 
?00010 
000011 
000012 

000013 

000014 
000015 
000016 
000017 
000020 



?540?0 

254e!'e 

2540?0 
254000 
254020 
254070 
254070 
254/i?0 
2540i^0 
2540?E 
263140 
263140 
253140 
254000 
263140 
263140 
254000 



(THIS SUB-PROGRAM ASSEMBLED WITH SYSTEM PARAMETER FILE - S,MiC(V414) 

XLIST 

LIST 
TITLE MTASRX - MAGTAPE ROUTINES FOR PQP-10 ( TM-10 ) V420 
SUBTTL T, HACWS/TH TS 20 MAY 69 

XP VMTASR,420 (DEFINE VERSION NUMBER FOR LOADER STORAGr MAP 



ENTRY MTASRX 
MTASRX! 



INTERNAL MTAOSP 



00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 



300 

300 

300 

300 

300 



032' 
071' 
274' 
047' 
330' 
355' 
042' 
042' 
515' 
516' 
000 
00 

000 
000 
000 
000 

241' 



MTADSHi 



IDISPATCH TA 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
POPJ 
POPJ 
POPJ 
JRST 
POPJ 
POPJ 
JRST 



RLE 



MTAINI 

HUNGTP 

MTAREL 

MTCLOS 

MTOUT 

MTIN 

SAVCHK 

SAVCHK 

MTDMPO 

MTDMPI 

POP, 

POP, 

POP, 

CPOPJl 

POP, 

PDF, 

MTAP0 



(HUNG DEVICE 

(RELEASE 

(CLOSE 



(ENTER 
(LOOKUP 



(USETO 

lUSETI 

(UGETF 

(RENAME 

(CLOSE INPUT 

lUTRCLR 



000340 MTC=340 
000344 MTS=344 



(MTACHN=FLAG CHANNEL 

(MTOCHN=nATA CHANNEL 

JMTFLAG=10»MTACHN ♦ 400 

!MTBDTH = 10''MTACHN + MTOCHN 

(MTALOC=40 * 2»MTDCHN 

(MTL0Cl=MTALOC*l 

INTERN MTA INT (MTADDS jMTADOB 

EXTERN ADVBFE,AnVSFF,MTFL*G,MTenTH,SETACT,CLR*CT,WSYNC 
FXTERN STOENS,SETIOn,MTREn,MTAVAL,CLOCK,MTALOC,MTLOri,OUT 
EXTERN CP0Pj,CPnPJl,P10M00,PUNIT,MTWAIT, J1FSC2,C0MCHK 
EXTERN PI0FF,PI0NiMTASaV,ADRERR,P0VCNT,MTSIE,ST010S,IADRCK 



010000 COMPAT=10000 

200000 DMPMOD=200000 

400000 mTREW=400000 

000003 MTTRY:3 



I IPM COMPATaRLE 9-TRACK 
(DUMP MODE FILE 
(MAGTAPE IS REWINDING 

(NO. OF TIMES TO RETRY OH AN ERROR 



^e^lll?i C!UANT = 3 



ilMCI. OF KECORDS TO READ UN 1 1'^TERfiUPTEn 



MTASRX 


- MAGTAPE ROUTINES FOR P| 


JP- 


10(TM 


-IE) VI 




T. WACW5/TH TS 


20 WAY 


6V 






58 






0030Z5 


TP 


= DAT 




59 








;D 


DB 




60 


!»0fiZ?l 


556441 


2000^0 


mtaddb: 


SIXBIT 


61 


?00032 


!«00036 


0000^1 






ywn 


62 


f^0(^02J 


000af0 


000003 









63 


PI0P1024 


0000!'-0 


0000'^2 • 






•■■.TAD'^P 


6t 


000025 


:?010?3 


1544?3 






XklP 


65 


PI00026 


0000K0 


000000 






?■ 


66 


000027 


0000?0 


000000 






? 


67 


00003^ 


0000r7 


000000 






XHD 


6S 


000031 


000007 


000000 






XWD 


69 












XP 


70 
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/MTAC/ 

t03e»HUMGST,>'TSp + l 



1023,154403 



PROGi0 
PROGi 
MTADDS, .-MTAnDP ISIEE OF DD8 (FOR BUILD) 



MTASRX 
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I INilTIALI2E 



71 
72 
73 
74 
75 
76 
77 
73 
79 
B0 
91 
•»2 
33 
84 
S5 
fi6 
87 



?00072 
!"0!?033 
7 00034 
700035 
200036 
000037 
f:0C04a 
000041 



000042 
a00043 
000044 
000045 
000046 

000047 
000050 



4760?a 
476070 
402000 
402000 
7342:'0 
?0?I040 
202040 
263140 



135040 
306040 
6600!''!0 
2020?6 
2540'J0 

607370 
263140 



000662' 
000666' 
000670' 
000573' 

0071000 

000675' 

000000 

000a:?0 



MT A IMl ! 



'^ETO^' 

SETDM 

SETZM 

SETEM 

rOMO 

MOVE 

'lOVE^ 

POPJ 



kJMTREW IRESET ELAGS 

UNIT 

ERRflG 

wTC.I ITURN OFF Mir 

TACCJSR MTQENO: iSET UP E^JD-COND I T I ON 
TACMTlOCI IFOR BUKI/BLKO 
POP, 



I IF ENTER OR LOOKUP IN SAVE '-"ODE - CHANGE To MODE 16 



000000 SAVCmK; 

003002 

000016 

000002 

000015 ' 



004000 
000000 



iCLOSt 
MTCLOS! 



LDB 

CAIN 

TRO 

MOVEM 

JRST 

TLNN 
POPJ 



TACPIOfOD (GET MODE 

TAG, 2 ISAVE MonE7 

I0S,16 lYES, CHANGE TO DUMP-MODE 

ios,nEvios(DEvnAT) 

CPOPjl (GIVE GOOD RETURN FROM LOOKUP/ENTER 



OEVDAT.OUTPB 
POP, 



lOUTPUT BEEN DONE? 
INO. GO AWAY 



S9 
Q0 
«1 
92 
93 
94 

95 

06 

97 

98 

99 

l^K 

1?1 

1?2 

17-3 

15'4 

105 

1!'6 

1"7 

17S 

109 

110 



000051 
000052 
000053 
■700054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000364 
000065 
000Z66 
000067 
030070 

000071 

000072 
000073 
000074 
000075 



135040 
305240 
263140 
260140 
? 1 6 ? 
260140 
602070 
2 6 3 1 <■• 
260140 
260140 
201600 
260140 
260140 
260140 
2016i'0 
254i!f0 

6 2 7 •" 
2 54 0^0 
3700''0 
350070 
254i)70 



000042' 
000016 

000000 
000000 

000003 
000245' 
400000 
003000 

000000 

000054 ' 

000003 

000245' 

000061' 

000062' 

000007 

00^245 ' 

400070 
000416 ' 
00''662' 

000000 

000416' 



HUVGTP ! 



I.DP 
CAIGE 

pushj 
pushj 

MOVE I 

PUSHJ 

TRME 

POPJ 

PUShJ 

PUSHJ 

MOVEI 

PUShJ 
PUSHJ 
PUSHJ 
"OVEI 
JRST 

TLHN 

JRST 

tJOS 

*0S 

JRST 



TACP 

TACl 

PDP.O 

PDPiW 

1JU0,3 

PDP.M 

lOS, I 

POP, 

PDP.S 

POP, W 

UU0,3 

POP.M 

PDP.S 

PDP.W 

UU0,7 

MTAP1 



lOMOD 
6 

UT 
SYNC 

TAPl 
OIMPM 

ETACT 
SYNC 

TAPl 

ETACT 

SYNC 



IDUMP MODE? 

INO, EMPTY LAST PARTIAL BUFFER 

IWAIT FOR 10 TO STOP 

IWRITE 2 ENOS-OF FILE 

IWRITE LOCK? 
lYES! RETURN 



lAND BACKSPACE OVER ONE OF THEM 



lOS.MTREW ITAPE REWINDING? 

THRUTP INO , GIVE UP CONTROL 

MMTREW lYES. OECREASE COUNT OF TAPES IN REl» 

"treq itnrutp will SOS this back 

TriRUTP ITUR\' off TM10 



MTASRX 
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HI 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
125 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
lft0 
Ifl 
152 
153 



^0C076 
("00377 
0001C0 
C«001f 1 
("0C"lt?2 

?a0is"3 

000174 
?001?6 
000106 

fiaoiP!? 

000110 

000111 

000112 

?i0en3 

00("114 
000115 
000116 
?I00117 
000120 
000121 
000122 
000123 
000124 



5100125 
000126 



000127 
000130 
000131 
000132 
000133 
000134 



000135 
00P1136 
000137 
000140 
000141 
000142 
000143 
000144 
000145 
000145 

000147 

000150 



201040 
542040 
5 4 2 3 .^ 
135240 
316240 
254;i?0 
242240 
7347^0 
254070 

560240 
607070 
260140 
506240 
734205 
242240 
556240 
3250!'0 
606240 
350003 
253140 
201040 
542043 
?540t>-0 



4760-<0 
260140 



3520("0 
260140 
201040 
202040 
202340 
250140 



13524e 

3360,'e 

201240 
3700^10 
242240 
505e"i0 
550240 
200i;'0 
137l?-0 
550240 
201040 
212040 



440102 

000355' 

000653' 

000000 

000656 I 

000115 ' 

000017 

000^102 

000112' 

000000 

400000 

00P1122' 

000663' 

0000JII0 

000003 

000555' 

000066' 

004000 

000i!00 

000000 

000127' 

777777 

000055' 



ICPNNECT CONTR 
COMECT: MOVEI 
HRRM 
hRRm 
LD3 
HAMN 
JRST 
LSH 
CONS? 
JRST 
TRO 
TLNN 
PUShJ 
HRL^' 
COhJO 
LSH 
HLRZM 
JUMPGE 
TRMN 
AQS 
POPj 
MOVEI 
MRRM 
JRST 



CNECT2I 



CNECT3; 



CNECT4I 



OL TO A TRANSPORT 

TAC,4401R2 
TAC.mTaINT 

devdat.usewri 

TPiPIINIT 

TP.uNir 

CNECT3 

TP,17 

mTS,? 

CNECT2 

TPiMTFlaG 

ios.mtrew 
pnp,cMecT4 

TP.USEWRD 

MTC,(TP) 

TP.3 

TP.UMIT 

los.wsvnc 

TPi 400?! 

(POP) 

POP, 

TACTPREDY 

TAC-KPDP) 

SETACT 



JSET UP INTERRUPT CONO I T I 0»JS 

;SAVE OEVDAT FOR INTERRUPT 

!GET UNIT 

lAUREAOY CON'-'ECTED TO IT? 

lYES 

INO. SET FOR com 

(CONTROL FREE? 

lYFS. DO A NO-OP CONO 

INO. SET CONTROL FREE ENABLE 

(CONNECTING TO A REWINDING TAPEJ 

(NO, CHANGE RETURN 

(MIGHT NEED ON INTERRUPT LEVEL 

(CQNO TO MTC 

(SAVE UNIT 

(WAIT FOR DEV TO FREE IF NOT REWINDING 

(REWINDING, CONTROL FREE ENAPLE? 

INO. SKIP RETURN 

lYES. IMMEDIATE RETURN 

(SET TO TRY CONTROL 

(AGAIN WHEN INACTIVE 

(SET DEVICE ACTIVE 



lOELAY TILL TAPE COMES OUT OF 10 WAIT, THEN GET CONTROL 
000000 DLYRDY! SETO^ MTAVAL 
000115' PUSHJ PDP.WSYNC IWAIT FOR lO TO STOP 



003074' 

000000 

00?1003 

000671' 

000664' 

000076' 



IGET MTC, CONECT TAPE TO CONTROL 



TPREDY! AOSE 
PUSHJ 
MOVEI 
MOVE''' 

TPRDY2I MOVEH 
PUSHJ 



MTREQ 

POP.MTWAIT 

TACOUANT 

TACOUANTM 

PROG.USEPRG 

POP, CONECT 



IGET CONTROL 
IWAIT FOR IT 
ISET QUANTUM TIME 



ICONECT CONTROL ^0 TAPE 



0051676' TPSET: 
00!? 



ISET IP FOR THIS TAPE 



LOP 



0035 
0030 

00515 

0005 

1000 

0000 

0566' 

0577' 

0000 

0003 

0657' 



TP, [POINT 2,108,283 (PARITY 



SKIPN 


TP 


MOVEI 


TP.STDENS 


SOS 


TP 


LSH 


TP,6 


TRNN 


lOS, lOPAR 


TRO 


TPi40030 


"OVE 


TACl.UNIT 


DP? 


TACl, [POINT 


TRO 


TP.MT13QTH 


MOVEI 


TAC, mTTRY 


MOVN" 


TACERCNT 



lUSE STANDARD IF 

INOT specified, use STANDARD FOR SYS, 

ISFT to USER'S REQUEST 

IPARITY 
(ODD 
(UNIT 
3,TP,20] (INTO COMMAND 
IPI CHANNELS 
ISFT ERROR COUNT 
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164 


7B?151 


73')7'"0 


?a00?4 


ro^s? 


^TS, 4 


165 


S-afilS? 


254?;-e 


^iail56' 


JRST 


^OYCHK 


165 


?!!ni5i 


507Z'e 


?1!'0?0 


^LV.\ 


JOS.COMPAT 


167 


C0?1?<( 


664240 


02?0?'a 


TRCA 


TP, 23032 


168 


peni55 


660240 


04^:?300 


TRA 


TP, 4-1300 



17 OR 9 TRACK? 

;7 TRACK 

19 TRACK, COPE DUMP? 

lYES 

INO. SET 600 BPI, ODD PARITY 



MTASRX - MAGTAPE ROuTIk;ES FOR POP-1.5 ( TM-ie 
T. WACHS/TH TS 20 ^'AY 69 
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169 








;makf sure tape 


IS REATY 


170 


JiaP156 


7Ci47!'0 


■:? ^ 4 


ROvchk: CONS' 


>:TS,40 


171 


("0?1';7 


?63140 


00?000 


POPj 


PDP, 


172 


?0716<) 


734740 


200000 


roMso 


KTS,;'a^,'70 


173 


r00ii'.i 


?63l40 


000000 


POPJ 


PDP. 


174 












175 


C0PI162 


6610«^0 


40005<0 


TL3 


IOSiMT^ek 


176 


00P)163 


?60140 


00PI124 • 


PUSwj 


PDP.SETACT 


177 


^.0P164 


3500?0 


000662' 


ADS 


vMTREW 


178 


!!30165 


3710?0 


PI00127 ' 


SDSL 


"TREO 


179 


000166 


2540?0 


000125' 


JRST 


TLYRiY 


180 


?00167 


260140 


000231' 


pUShj 


PDP,GLOKRO 


191 


000170 


2540-?0 


000126' 


JRST 


niYRGY+l 



IREADY? 

JYES 

;RFWIN;0I'MG? 

;mo. let xpcrt hung interrupt handle it 

lyes. must be rewinding 
idevice active 

;8ump count of rtewinding drives 
.'l^t someone else use tapes 
inoone else wanits co'^troi. 

IPUT IN A TjwE REQUEST 
!AMn WAIT 



MTASRX - MAGTAPE ROUTIWtS FOR PQP-ia ( TM-ltl ) VIZIi! 
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182 


?00171 


000172' 


0000010 


MTCLOK ; 


xwn 


.*1,JIFSC2 


183 


n00172 


4020f 


0k«0665' 




SET2M 


CLKRrO 


184 


B00173 


3310'^0 


000165' 




SKIPL 


M T R E T 


185 


000174 


263140 


000000 




POPJ 


POP. 


186 


000175 


476000 


000662' 


MTrL'<2 ! 


SETOK 


M M T R r w 


187 


000176 


202300 


000240' 




MOVEM 


OEVOAT, SAVOEV 


188 


000177 


2013''0 


000021' 




"OVEI 


OEVDAT.MTADOn 


189 


000200 


350000 


000173' 




AOS 


MTRE5 


190 


000201 


200006 


000002 


REWCMK ; 


WOVE 


IOS,nEVIOS!DP 


191 


000202 


325000 


000220' 




JUMPRE 


I0S,REWCK2 


192 


000203 


260140 


000076' 




pushj 


PDP.COMECT 


193 


000204 


263140 


000000 




POPj 


FOP, 


194 


000205 


734740 


000040 


REWCKA! 


rONSO 


i'TS,40 


195 


00!^206 


254000 


000214' 




JRST 


REWCKl 


196 


000207 


623000 


000001 




TL2E 


lOS, lOw 


197 


000210 


260140 


000000 




PUSHJ 


POP.SETIOD 


198 


000211 


621000 


400000 




TL? 


lOS.MTREW 


199 


000212 


260140 


000000 




PUSriJ 


PDP.CLRACT 


2!"0 


000213 


254000 


000220' 




,JRST 


REWCK2 


2?1 


000214 


350000 


000662' 


REWCKli 


AOS 


.'^MTREW 


272 


0002J5 


201040 


000036 




f'OVEI 


TAC,36 


273 


000216 


734700 


200000 




CONS? 


MTS, 200000 


2("4 


000217 


1 37040 


000000 




DPR 


TACPOVCNT 


205 


000220 


554306 


000003 


REMCK2: 


HLRZ 


DEVDiT.DFvSER 


27b 


000221 


554246 


000000 




HLRi 


TAC.nEVNAMtDF 


2JI7 


000222 


306040 


556441 




CAI,\ 


TAC,(SIXRtT , 


2718 


000223 


P54000 


000201' 




JRST 


REWCHK 


2(»9 


000224 


200310 


000240' 




MOVE 


HEVDAT, SAVDEV 


210 


000225 


371000 


000200' 




SOSu 


I^TREO 


211 


000226 


476000 


000125' 




SETO" 


^■ T A V A L 


212 


000227 


335000 


000662' 




SKIPGE 


N^MTREW 


213 


000270 


254000 


000436' 




JRST 


THRUT3 


214 














215 


0002?il 


200040 


000171' 


CLOKRQ! 


MOVE 


TAC.MTCLOK 


215 


000232 


700600 


000000 




CONO 


Pl.PIOFF 


Z17 


000233 


331000 


000665' 




SKIPL 


CLKRFQ 


218 


000234 


1 36040 


000000 




IDPB 


TAC.CL'^CK 


219 


000235 


476000 


000665' 




SETOM 


CLKREQ 


220 


003236 


700600 


000000 




rOND 


Pl.PION 


221 


000237 


2540ni0 


000436' 




JRST 


THRUT3 


222 


000240 


000000 


000000 


SAVDEV! 


^ 





IPJOICATE NO CLOCK REGJEST IN NOW 

ICONTROL FREF7 

INO, COME BACK LATER 

ICOUMT NO, OF TAPES REWIMDING 

ISTART AT MTA0 

IMAKF SURE NO OTHER MTA REQUESTS ARE HONORED NOw 
IT) 
ITAPE NOT REWINDING 
IREWlNOjNG - CONECT TO IT 

;CONTROL NOT FREE NOW - RETURN ON INTERR'jPT LEVEL 
ISTILL RFWnjniNG? 
lYFS 
)N0, TAKE OUT OF 10 WAIT 



INO LONGER ACTIVE 



JCOUNT REWINOING TAPE 

I IF TAPE IS STILL REWINDING 

(MAKE SURE IT DOESN'T GET A HUNG DEVICE 
(DEVDAT) INEXT DEVICE 
VOAT) ;A MAG TAPE? 
MTA. ) 

lYES, CHECK IT 

IPICK UP DEVDAT AGAIN 

IFREE MTASFR AGAIN 

(SOMEONE WAITING FOR CONTROL 

lANY TAPE REWINDING? 

INO 

;PUT A CLOCK REQUEST IN 

IHAVE MONITOR WAKE UP 

IIF NO CLOCK REQUEST IN ASK TO WAKE UP 

) IN HALF A SECOND 

INOW WE HAVE ONE 



ITEMPORARY STORAGE FOR DEVDAT 



MTASRX 
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2?3 
224 
2?5 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
2'10 
241 
242 
243 
244 
245 
246 
247 
248 
2<19 
2'50 
2';i 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 



00!»241 
(?00242 

(J!0('244 
C00245 
f«a0246 
("0C^247 
P100250 
C00251 
000252 
000253 
000254 
000255 
000256 
000257 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000270 
000271 



000272 
000273 
000274 
000275 

000276 
000277 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000310 
000311 
000312 

000313 
000314 



6026'Z0 
2540i«0 

6230X0 
?Z20"6 
260140 
620240 
4 05 6<'-0 
2416^''0 
331000 
334054 
554054 
622040 
734740 
606040 
254000 
522040 
2540'"0 
626040 
2540!'0 
734700 
7540''0 
137040 
506240 
7342"5 
254050 



6026150 
665000 
621010 
?540;".0 

734700 
2540,10 
260140 
260140 
201600 
260140 
2016''0 
260140 
260140 
2000P6 

6060:10 

2 6 4 :■ 
2 1 6 ? 

260140 

2 5 4 ,' 



;MTAPE 
000100 MTAP0! 
000272' 

776000 MTaP! 
000002 
000127' MTaPI! 



00'^007 

000017 

777777 

0014 

000320' 

000320 ' 

000100 

100000 

777777 

000413' 

000200 

000276' 

000400 

000266' 

003010 

000611' 

0007='0' 

000663' 

0000510 

000212' 



yTAP3! 



000001 
010000 
010000 

000000 
100000 

000302' 
000266' 

000315 ' 

000016 

000313' 

000006 

000243' 

000315' 

000002 

020000 

000302' 

000007 



mTAGO: 



TR'-JE 
JRST 

TR? 

'■I V E M 
PUSHJ 
TR? 

ROT 
SKIPL 

«;kipa 

HLRZ 
TR?E 

co^sn 

TRMN 

JRST 

TRZE 

JRST 

TRZNi 

JRST 

COVSZ 

JRST 

nPB 

HRLM 

r;0M0 

JRST 



uuo, 100 

SET9TK 



(SETTING 7 TRACK MODE? 
lYES 



I0S,77 

!OS,DE 

PDP.TP 

TP,7 

tiU0,l7 

UU0,-1 

UUO 

TAC.MT 

TAC.hlT 

TAC,10 

MTS, 10 

TAC-l 

THRUTA 

TAG, 20 

LEOT 

TAG, 40 

mTAGO 

'^TS.10 

ILLOP 

TAG.CP 

TPiUSE 

MTC, (T 

CLRACT 



6000 )TURN OFF ERROR BITS 

VIOS(DFVr)AT) ;SAVE lOS 

i^EOY IGET CONTROL pnH THIS TAPE 

IN" DATA TRANSFER 
IGFT FUNCTIOi^ 
(TRANSLATE FROM TABLE 

■=TBL{UUOI 

PTBL(UiiO) 

IiMOVF TAPE BACKWARD? 

0000 lYFS. TAPE AT LOAD POINT? 

lOR NO-OP? 
)YES, GO CHECK FOR SOT 
ISKIP TO LOGICAL EOT? 

lYES 
ITRY TO WRITE TAPE? 

INO, 

lYFS, WRITE LOCKED? 

JYES, LIGHT ERROR BIT 
OINT 4,TP,26: IPUT FUNCTION INTO COMMAND 



WRO 
P) 



SSET 9-TRACK TAPE 
SET9TK: TRNE UUO.l 

TLOA lOS.COMPAT 
MlAREL; TL2 lOS.COMPAT 

JRST STOIOS 
TO LOGICAL EOT 



ISAVE COMMANiD 
(START TAPE MOVING 
(AND RETURN 



(SET IBM COMPAT, 
(NOT IBM COMPAT 



(SKIP 
LEOTI 



CONSZ l-TS, 100000 

JRST LEnT2 

PUSHJ PQP.MTAGO 

PUSHJ PDPiEOTWT 

LE0T2( >^OVEI UUO, 16 

PUSHJ P0P,MTAP2 

MQVEI uun,6 

PUSHJ PQP.MTAP 

PUSHJ pDP,EOTWT (WAIT FOR IT 

MOVE !DS,nEVinS(DFVnAT) 

TRMN lOS.IOOEND (END OF FILE SEEN? 

JRST LE0T2 (NO. SKIP TO NEXT FILE 

MOVEI UUO, 7 (YFS. BACKSPACE RECORD 



(TAPE AT BOT? 
(YES. OONT BACKSPACE 
(BACKSPACE RECORD 
(WAIT FOR IT 
(SKIP A FILE 

(SKIP A RECORD 



000315 3520/10 



000133' MTAP21 PUSHJ PDP,TPRDY2 
000246' JRST MTAP3 

(WAIT FOP TAPE TO FINISH, MTREQ WILL COUNT DOWN AT END OF OPERATION 
000225' EOTWT! AOSE mTREQ 



MTASi^X 
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276 «ia0316 25Hlie rS7iZli' 

277 !?0fl3]7 Z6.il<(Z ?'t)?i?\ii 



PUShJ 
i^OPj 



FCIP.MTWA I T 
POP, 
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278 


!»0P32t) 


^001..! 


007000 


''Tptul: v».n 


279 


CKfiPl 


r^ 4 ^ 5 


7 7 


ykO 


s^a 


.'!af"3?2 


7000^0 


007270 


xwn 


231 


f"i!«'323 


0031-^7 


0070,^6 


XwD 


2S2 


00C1324 


700111 


007277 


vi«n 


283 


?0fi325 


700415 


007070 


XtvO 


2B4 


r"0!"3?6 


000000 


000000 


x™n 


295 


C0P1327 


000117 


00 7 i! 16 


yt<n 



101.7 

405, r 

" , 

107,6 

111,207 
415," 
'■" , 7 
.117,16 



iREW.NOP 
IHRITE EOF, 

(BACKSPACE RFC, SKIP REC 
IRFW,UNUOAn,LOG EOT 
IrtRITE BLANK TAPE, 

saACK FitEtSKIP FILE 
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2S6 
287 
288 
289 
290 
291 
292 
203 
294 
295 
296 
297 
298 
299 
3Pi0 
31^1 
3?I2 
3?3 
3K4 

3'?i5 
3ti6 
31' 7 
3B8 
3?9 
31.0 
3U 
312 
313 
314 
315 
316 
317 
318 



000330 
C00331 
000332 
f0C1333 
PI00334 
000335 
000336 
000337 
000340 
000341 
000342 
000343 
000344 
000345 
003 4 6 
000347 
000350 
000351 



260140 
V347?0 
;'54b2I0 
7347?I0 
664000 
665000 
254000 
2*01066 
2101"! 
604040 
347040 
660240 
205l?«0 
202040 
202040 
5411''0 
2021:0 
506240 



iOUTPUT 
000127' MTOUTi 
00'3010 
000611 ' 
004000 
042000 
003020 
000454' 

000010 MTOUTI! 
i' 1 
000032 
000454' 

004000 MT0UT2I 
7341(10 

000673' MTOTGOl 
000674' 
000673' 
000000 
000663 ' 



000352 7342''i5 000000 

000353 660010 0100i?i0 

000354 254K;'e 000275' 



UUO 

pushj 

CONS? 

JHST 

CONS? 

TROA 

TLOA 

JRST 

MOVEI 

MOVN 

URL 

40JG 

TRO 

MOVSI 

MOVE. I- 

MOVEM 

HRR] 

mdVem 

hRLm 

no'io 

TRD 
JRST 



000355 
000356 
000357 
000360 
000361 
000362 
000363 
000364 



260140 
621000 
460066 
541066 
270040 
660240 
205100 
254070 



000127 ' 
000020 

000007 

000007 
000701' 
002000 
734000 
000345 ' 



I INPUT UUO 



MTIN! 
MTlNi: 



MTIN2! 



PUSHJ 

TLZ 

SETCM 

HRRI 

SOD 

TRO 

i-OVSI 

JRST 



PDP,TPREDY 

mTS, 10 

ILUOP 

MTS, 4000 

lOS, IOTEMD*inBKT 

IDS, 10 

ADVOUT 

TAC,aDEVnAD(OEVO 

TAC1,.1(TAC) 

TACTACl 

TAG, ADVOUT 

TP. 4000 

TAC1,(!3LK0 MTC) 

TAC,PNTR 

TAC,SVPNTR 

TACl.PNTR 

TACl.MTALOC 

TPiUSEWRD 

MTC, (TP) 
lOS, ioact 
STOins 



IGET CONTROL, SETUP TP 

IWRITE LOCK? 

lYES, SET lOIMPM AND RETURN 

IE0T7 

L lYES, LIGHT BIT 

INO, INDICATE OUTPUT 

(DONE IF EOT 

AT) lAnoPESS OF BUFFER 

l-WORO COUNT 

IIM LH OF COMMAND 

ISKIP IF WORDS 

IFUNCTIOIV = WRITE 

(SETUP BLKO 
ISAVE BLKl/BLKO POINTER 

IBLKI/BLKO PNTR 

I INTO INTERRUPT lOC 

iSAVE COMMANO 

(START TAPE MOVING 
ISETACT CLEARS lOW 
(STORE ms AND RETURN 



PDP,TPREDY (SETUP TP FOR THIS ORIVE 

lOS.lO (INPUT 

TAC,9DEVIAD(nEVDAT) (-LARGEST POSSIBLE WRD CNT 

TAC,iaOEVIAD(DEVOATI (STARTING ADDRESS 

TAC,rXWD 2.13 (MAKE REAL lOWD 

TP,2000 (FUNCTION = READ 

TAC1,(BL'<I MTC) (SETUP BLKI 

MTDTRO (GO START TAPE 
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319 


KetrZfi 


734740 


440102 MTAIMTi CONSn 


^'TS, 440102 


i?0 


f00366 


254000 


000366' 


JRST 




321 


200367 


734340 


000400 


rONSP 


mTC.403 


322 


("03370 


7347''0 


4 4 010 


f-ONS? 


MTS. 440100 


323 


!"00371 


2540;"0 


000373' 


JRST 


.*2 


524 


f^00372 


2540'?0 


000366' 


JRST 


I'TAI MT + 1 


375 


f"00373 


264000 


000000 


JSP 


"iTASAV 


326 


000374 


5503^0 


000663' 


HRR? 


OEVOAT.USEN 


327 


?|00375 


2 '^ 6 


003002 


"OVE 


lOS.OEVinSt 


328 


?00375 


32101^0 


000205' 


JUMPL 


lOS.REwCKA 


329 


^00377 


200340 


000664 ' 


^'OVE 


PROG.USEPRG 


330 


000410 


332040 


000670' 


SKIPf: 


TAC.ERRFLG 


33] 


000401 


2540110 


000625 ' 


JRST 


TRYAGN 


33 2 


0004'52 


734700 


440000 


noNSZ 


><TS,440H00 


333 


000403 


254000 


000602 ' 


JRST 


frror 


334 


000404 


734300 


000007 


CO'^S? 


f'TC? 


335 


000405 


254000 


000446' 


JRST 


nATEMD 


336 


300406 


135240 


000702' 


LD8 


TP. [POINT 4 


337 


000407 


306240 


000006 


CAIN 


TP,6 


338 


000410 


734740 


010000 


COMSO 


mTS, 10000 


339 


000411 


334zr0 


000000 


SKIPA 




340 


000412 


6600^0 


0230''0 


THO 


lOS, lOOEND 


341 


fl00413 


7347''"0 


300000 THRUTA! trONS? 


mTS, 300000 


342 


000414 


6640:.>0 


004000 


TROA 


IDS, lOROT 


343 


"00415 


6202/^0 


004000 


TR? 


lOS, iOhot 


344 


000416 


7347'.'0 


004000 THRUTH! COMS? 


mTS,4000 


345 


000417 


66!'0"0 


002^00 


TRO 


lOS, lOTEND 


346 


000420 


62 3^.'-0 


000001 


TL?E 


lOS, lOW 


347 


000421 


P60140 


0002J0' 


PUSHJ 


POP.SETIOD 


348 


000422 


6210?0 


200000 


TL? 


lOS.nMPMOO 


349 
340 


003423 


260140 


000271 ' 


PUSHJ 


PDP.rLRAfT 


351 
3'=2 


!'00424 


375fc?0 


0003151 


SOSGE 


MTREO 


353 


000425 


2540'?'a 


000434 ' 


JRST 


THRUT2 


354 


000426 


3310!'.0 


000662' 


SKIPL 


mmthew 


355 


000427 


3320''0 


000665' 


?KIPF 


CLKREQ 


356 


000430 


334000 


000000 


SKIPA 




357 


000431 


75421,10 


000175' 


JRST 


WTCLK2 


358 


000432 


476K''0 


000226' 


SETOM 


mTAVAL 


359 


000433 


254e-».0 


000436' 


JRST 


THRUT3 



UNTFRRUPT F"R MAG TAPE? 

!N0. Gfl AwAY 

(iJAS CONTROL FPEE ENABLED? 

r-iO, CONTROL FREE ERROMEPUSLY ON? 

IREAL MTA INTERRUPT 

ITHIS INTERRUPT NOT REALLY FOR MTA 

lYES, SAVE ACS 
RD IRESET OFVDAT 
DEVOAT) ;an':i IOS 

;CMTRL FREE INTERRUPT ON A REM, TAPE 

ISACKSPAte from ERROR? 
IVES, REISSUE COMMANO 
lERROR? 

lYES. ILLEGAL OP OR MUNG DEVICE 
IDATA OPERATION? 
lYES 
■USEWRD.83 IGET FUNCTION 
(SKIPPING A RECORD? 
lYES, SEEN AN EOF? 
INO. 

lYES. TURN ON EOF BIT 
INO, BOT OR REWINDING? 
lYES. SET BOT BIT FOR USER TO SEE 
INO, TURN OFF BOT BIT 
INO. EOT? 
lYFS 

IJOB IN 10 WAIT? 
lYFS, TAKE IT OUT 



;CONTROL FREE INTERRUPT? 

(YES, DONT COUNT DOWN MTREQ 
ICOUNT DOWN REQUEST COUNT 
JNOONE ELSE WAITING 
(IF THERE ARE TAPES REWINDING 
IWHICH HAVEN'T BEEN CHECKED IN 
(MORE THAN 1/2 A SECOND 
(GO CHECK THFM NOW 
ISOMEONE ELSE WANTS IT 
lOISMISS INTFRRUPT AND RETURN 



MTASPX 
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360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 



)HEHE WHTN c^NTRnt I? ALL DO^E, CHECK ON REWINDING TAPE!) IF NEEDED 



00434 

00435 
4 3 6 
00437 
00443 
00441 
00442 



3310^0 
?54e,-50 
554240 
620240 
7342?5 
51307J0 
?63140 



00443 0000C0 

00444 734630 

00445 254520 



000662' 

000175' 

003663' 

017777 

0000!'0 

0051365' 

000000 



THRUT2 ! 



THRUT3: 



SKI PI. 

JRST 
HLR2 
TR? 

rowo 

MLLE? 
POPj 



vMTRfW 

''TC:lk2 

TP.USEWRO 

TP. 17777 

►'TC, (TP) 

"TAINT 

PPP, 



lANY DRIVES REWINDING? 

lYES, CHECK IF ANY THROUGH 

I GET UNIT 

IMASK OUT FUNCTION 

laiSfISS INTERRUPT 

IDONT LOOK AT ANY MORE INTERRUPTS 

lAND EXIT 



(HERE WHE'v BLKI/PLKO COUNTS OOWN TO ?ERO 

000000 MTOENOl ? 

000001 CONO fTS.l (GIVE A FUNCTION STOP 
000443' JEN fMTDENO lAND EXIT 
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374 

375 

376 

377 

37B 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

4^10 

431 

4?I2 

4(?3 

404 

4?5 

4PI6 

407 

4<18 

409 

410 

411 

412 

433 

414 

415 

416 

417 

418 



''00446 
000447 
000450 
000451 
000452 
000453 
000454 

000455 
000456 
000457 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000470 
000471 
000472 
000473 
000474 
000475 



000476 
000477 
000500 
000531 
000502 
000503 
000504 
000505 
000506 



000507 
0005.10 
000511 
000512 
000513 
000514 



734770 
?54e.'0 
6030 '0 
?54Br0 
*070i'0 
?54 0/0 
?6?140 

2540'«0 
6230,10 
260140 
3770P0 
3370^0 
7347^0 
254000 

211040 

202040 
554240 
603000 
2540P'0 
554B66 
271t:66 
260140 
2540i';0 
254030 



734700 
254a00 
201066 
550100 
?75l:.n 
542101 
260140 
2540!»0 
254000 



554240 
734740 
?540-;i0 
734740 
660000 
2540^0 



02''60B 
00;16l 4 ' 

0a.'577' 
3 :^ ^ 7 
02^476' 
0e:!070 

003416' 

000001 

00OI4;J1 1 

000671' 

000424 ' 

004000 

00041 6' 

0000 ?3 

000667' 

000663' 

000020 

000337' 

0000?7 

000a:?7 

00PI000 

000416' 

003357' 



010000 
000612' 

000007 

000673' 

000001 

000001 

000000 

00^1416' 

000456 I 



DA TEND ! 
nATNT2! 



ADVOUT; 



NXT«Ei;i 



JR'^T 
TLNE 
:MST 
TL^INi 
JKST 

dushj 

JR'=T 
TL?E 

pushj 
=;usG 

■^KIPG 

r-OMS? 

JRST 

"OVNI 

"OVE^ 

HLP2 

TLNE 

JRST 

HLP2 

Aoni 

PUSHJ 

JRST 

JRST 



"TS, 2060? 
CETRV 

los.nMPMna 

r.MPE-NO 
IDS, 10 
IfjPTMO 

pop, advbpe 
thrutp 

IDS, \0A 

POP.SETIOD 

QUANTM 

flREO 

NTS, 4000 

THRUTP 

TAC.MTTRY 

TACERC'-JT 

TP.USEWRf-i 

lOS, 10 

xTOUTl 

TACaOEVIAD 

TAC.siDEVl AD 

PDP, I AnRt"K 

THRUTP 

yT IMI 



IRECORn OK? 

;PARITV, DATA tATE OR BAT TAPE 

fJUMP ^OOE? 

lYES 

IREADING7 

lYES. FimiSh IMPUT 

lijRITIMG, ADVANCE BUFFERS 

!E''iD OF TAPE? 

!YFS. DOMT 'nRITE ANY MORF 

MM 10 WAIT? 

irestart jop 

icouwt down protect time 
;anyone else want control? 
ino. keep coing unless eot 
lyes. give up control 
ihesft error count 

spick up covmakjd 
(amd do next record 

dEVDAT) iPlCK MAX. SIZE OF BUFFER 
("EVDATl lADD IN FIRST ADDRESS 
ICHECK IT'S O.K. 
iNO - RELEASE CONTROL 
10. K, no NEXT INPUT, 



(HERE WHEN THROUGH AN INPUT RECORD 

INPTMO! '■OMSZ KTS, 107I0'?! lEOF? 
JRST DATEOF (YES 

MOVEI TAC,SDEVlAO(nEVDAT) ISTaRT OF RECORD 
HRP8 TACl.PSiTR iWHERE WE ARf mqw 
SU9I TAC1,1(TAC) ILAST LOn-FlRST lOC 
HRRM TACl.KTAC) ! = WORD COUNT 
PUSHJ PDP.AOVBFF (ADVANCE BUFFERS 

■ IRST ; THRUTP (NONE FREE 

JRST NXTREC (CONTINUE WITH NEXT RECORD 



000663' DMPENOi 

014B510 

0005-^7' 

004000 

020000 

000416' 



HERE AT THE END OF A DUMP 



•on 
cCNsn 
JRST 

CON SO 

TRO 

JKST 



TP,USEWRD 
«TS, 14'^a!" 
DMPBLK 
MTS, 4030 
IDS, lOOEND 
THRUTP 



'ODE RECORD 

(SET UP COMMAND AGAIN 

(EOF OR EOT? 

(NO, GET NEXT COMMAND 

(EOF? 

(YES, SET EOF BIT 

(AND RETURN TO USER 



MTASRX 



419 
4?0 
4J1 
4?2 
423 
424 
425 
426 
427 
4?8 
429 
430 
4J1 
432 
433 
434 
435 
4 36 
437 

438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
4?0 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
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00?515 
5500516 
?0flbl7 
?0PI520 
!<0I'521 
7100522 
C00523 
?00524 
?af 525 
,"100526 
''0?527 
?I0!»530 
Pa8531 
700532 
300533 
00fl634 
?00535 
000536 
000537 

("00540 

000541 
?00542 
?:00543 
? 5 4 4 
000545 

000546 
000547 
000550 
000551 
000552 
000553 
000554 
000555 
000555 



000557 

000560 
000561 
000562 
000563 
000564 
000565 
000566 
000567 
000570 
000571 
700572 
000573 
000574 



6650/.0 
621.0:'B 
5056''0 
260140 
2540-10 
261140 
260140 
262140 

6i)3e;0 

7 Oi 4 7 4 

?54i: "la 

734740 
664070 
660000 
2 5 4 
6610^0 
370000 
?026'^0 
260140 

2 7104 7 
6030k:0 
25 4 000 
606000 
660240 
254070 

332040 
254070 
354040 
542040 
200260 
321040 
327040 
262140 
25 40.70 



6ki30,30 
602000 
263140 
5741^0 
402000 
311170 
263140 
270040 
202040 
275040 
505040 

263140 

7 00"!! 
777777 



000020 
000020 
0070.;7 
007000 
000070 
000070 
000127' 

000000 

007020 

004010 

000534 • 

4 I j 7 

400000 

042000 

007416 ' 

2000^0 

000014 

000672' 

000546' 

000000 

000020 

000343' 

003001 

012000 

000362' 

000573' 

000562' 

000672' 

000672' 

000001 

000557' 

000547' 

000001 

000416' 



000020 

000001 

000000 

000071 

000573' 

000574' 

000000 

000703' 
000573' 
000000 

000000 
000000 
000000 

000571' 



MTOMPUI 
MTDMPl I 



I TLOA 
! TL? 
nRLI 
f'USHJ 
JRST 
DUSH 
DUSHJ 
OOP 
TLNE 

JRST 
70\Sn 
TRnA 
■'RO 
IRST 
MT0MP2: TLO 
SOS 
M0VE*1 
PUSH.J 



ADOI 

TLME 

JRST 

TRM^ 

TRD 

JRST 

"^kipe: 

JHST 

ACSA 

mRRm 

"CVE 

JUMPL 

JUMPP 

POP 

JRST 



HMPBlk: 



'vIXTCnM! 



NXTCM2! 



NXTCM3: 



lOS, I 
lOS, I 

uun.P 

P D P , 
4DRER 
PUP. I 
PDP.T 
PDPi ! 
IDS, I 
vTS,4 

i^tdmp 

!'TS,4 

I OS, I 

lOS.l 

THRUT 

lOS.T 

UUO 

HUO.L 

POP.N 







ROG 

OML'HK 

R 

OS 

PREOY 

OS 



01? 

2 

0'»0 

OIMPM 
OTEN'D-" 
P 
MPHOO 

STLOC 
XTCOM 



TAC, (PROG) 

lOS.IO 

"T0UT2 

lOS.l 

TP, 10000 

"TIN2 



(DUMP OUTPUT 
lOUMP INPUT 

ICHECK VALIDITY OP LIST 
INCT VALID 

MSYNC WILL CLOBBER IDS 
IGET control, setup TP 

JCKECK WRITE LOCK 
lAND EOT IF WRITING 

[ERROR 
IWRITE LOCK 
inBKTL fEOT 

(GIVE UP TAPE AND RETURM 
mOICATF: DUMP-MODE 
IWILL COUNT IT UP LATER 
ISAVF LOC OF LIST 
(GET NEXT COMMAND 

(ADD RELOCATION FACTOR 

1WRITING7 

lYES. GO ^.RITE RECORD 

IDR - READ ACROSS RECORD BOUNDARIES 
IGO READ RECORn(S) 



TAC.REMNDR 

MXTC>^3 

TAClSTLOC 

TAC.lSTLOC 

TAC.fJTAC 

TAC,MXTCM2 

TAC^XTCOM + l 

POP, TAC 

THRuTP 



ipartial iowd left to do? 
i yes. continue with it 
iget next command loc 

ipick up command 
ireal command 

)G0-T0-M0R0 
10 - THROUGH 



I-MTSIZ 

iwriting? 

lYES, MODE 16? 

MO, USE IOWD AS OBTAINED 

lYFS, GET WORDCOUNT 



REMNDHl 
MTS2! 



FXTERN kIMTSN 

TLNE lOS.IO 

TRNE lOS.l 

POPJ POP, 

HLRE TACl.TAC 

lETiM REMNOR 

CAML TACl.MTSH IHECORO TOO LARGE? 

POPj POP. (NO, GO WRITE 

ADO TACCXWD MTSIZiMTSIZJ ;yfS, 

«OVEM TACREmnDR IlOwn To USE FOR NEXT RECORD 

SUBI TAC.MTSI? lADDRESS FOR THIS IOWD 

WRLI TACmMTSIH IWRITE -MTSI? WORD RECORDS 

OOPJ PDP, [RETURN THE IOWD 



VWD -1,MhTSI2 



INEG. OF RECORD SIZE IN WORDS 



MTASRX 
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470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

4<!0 

481 

482 

453 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

5210 

5?1 

502 

5?I3 

504 

5t»5 

5!»6 

5PI7 

5?8 

5(19 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

5?0 



C00575 
0051576 
?^0PI577 
000600 
000601 



000602 
000603 



000604 
000605 
000606 
000607 
000610 

000511 
000612 
000613 



000614 
000615 
000616 
000617 
0006P0 
000621 
000622 
000623 
000624 



000625 
000626 
000627 
000630 
000630 
000631 
000632 
000633 
000634 
000635 



000636 
000637 
000640 
[«00641 
000642 
000643 



260140 000436' 

260140 000163' 

201040 00001^1 

137040 000217' 

263140 000000 



MTHUNG! PUSHJ 

pushj 

^OVEI 
npp 

PQPJ 



P0P,THPUT3 

"DP.SETACT 

TACl 

TAC.POVCNT 

POP. 



734700 400000 ERROR! COMSZ HTS, 400000 
254070 000575' JRST MTHUNG 



ITURK OFF ERROR PI BIT 

ITUR\i ON lOACT 

ISET HUNG-TIME TO 1 MORE TICK 

ISET HUNG TIME 

(AND EXIT 



IHUNG DEVICE? 



606000 
?54Uc0 
660030 
202006 
254000 

664000 
6610r'0 
2540?0 



6060''0 
351040 
254000 
201040 
202040 
554240 
405240 
7342C5 
263140 



363040 
734740 

?5401i-0 

200040 
202040 
554240 
7342':^5 
4020^0 
263140 



321040 
554240 
405240 
7342'5 
4 7 6 H ' t" 
263l'i0 



010000 
000611' 
400000 
000002 
000434 ' 



i ILLEGAL OP INTERRUPT 



TRNN 

JRST 

TRO 

MOVEM 

JRST 



lOS.IOACT (DATA OPERATION? 

ILLOP )N0, LIGHT ERROR BIT, GIVE UP CONTROL 

lOS.IOIMPM lYES. LIGHT lOlMPM 
I0S,DEVI0S(DEVDAT) ;SINCE DEVICE IS STILL ACTIVE 
THRUT2 ICOUNT DOWN MTREQ ON HUNG CALL 



400000 ILLOP! TROA 
000040 dateof! tlo 
000416' jr<;t 



lOS, tOIMPM 
lOS, lOEND 
THRUTP 



(EOF - LIGHT BIT 
lAND GIVE UP CONTROL 



000100 

000667' 

000644' 

000002 

000670' 

000663' 

760770 

007000 

000000 



!TRY AGAIN ON PARITy ERROR OR SAD TAPE 



RETRY! TRNN 
AOSL 
JRST 

RETRYll MQVEI 

MOVEM 

HLR? 

ANDI 

CONO 

POPj 



RETRY21 



lOS, lONRCK 

tac.ercnt 

permeR 

TAC,2 

TAC.ERRFLG 

TP.USEWRD 

TP. 760770 

■'TC,7000(TP) 

PDP, 



IMANT TO STOP ON ERROR? 
tOR TRIED ENOUGH? 
lYES, PERMANFNT ERROR 
ISET RETRY SWITCH 

IPICK up COMMAND 
ISET FOR BACKSPACE 
I3ACKSPACE RECORD 
lAND GO AWAY 



0006 
1000 
0006 

0006 
0006 
0006 
0000 
0006 
0000 



36' 

00 
20' 

74' 
73' 
63' 

00 
70' 

00 



ICOME HERE AFTER BACKSPACE IS THROUGH 



TRYAGNl SOJLF 
CONSO 
JRST 



TRYNXT ! 



■JOVE 

MOVEM 

HLR2 

CONO 

SETEM 

POPj 



TACTRYSKP 
mTS, 100000 
RETRY2-1 

TACSVPNTR 

TAC.PNTR 

TP.USEWRD 

MTC.(TP) 

ERRFLG 

POP, 



IGO IF NOT 2ND BACKSPACE 

JBOT? 

INO. BACKSPACE AGAIN 

IHFAD RECORD AGAIN 

IRESET POINTER 

IGET COMMAND 
lEXECUTE IT AGAIN 

lAND GO AWAY 



000630' 

000663' 

760770 

006000 

0011670 • 

000000 



IHFHE AFTER 3ND BACKSPACE OR SKIP AFTER ERROR 



TRYSKPi 



JUMPU 

ULRH 

ANOI 

CONO 

SETOM 

POPJ 



TAC, TRYNXT 
TP.USEWRD 
TP, 760770 
MTC,60(?10(TP) 

FRRFLG 
POP, 



lAFTER FORWARD SKIP IF NEGATIVE 
lAFTER 2N0 BACKSPACE - SKIPA RECORD 

ISKIP A RECORD 

I INDICATE FORWARO SKIP 

lAND GO AWAY 



r-TAsax 
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5J1 


?!0e644 


6B3;5i-'0 


007i!?0 


PER^PH ! 


TL^E 


lOS, 10 


522 


?00645 


6020^0 


007170 




TRVE 


lOS, lONRCK 


5?3 


;?0''646 


2540^0 


000655' 




■ IRST 


SET13S 


SJI 


?ee647 


303040 


0071')10 




fAlLF 


TAC, 107 


525 


C0?650 


?540'0 


000655' 




JR'^T 


SETIOS 


526 


?'0C651 


327B40 


007621' 




JU"Pr, 


TAC,RETRV2 


527 


C0(^652 


205040 


0172 7 




N-OVS I 


TAC, 10707 


528 


JI00653 


436040 


000663' 




CRf' 


TAC.IISEWPO 


529 

5 3 


?00654 


25407.0 


000617' 




JR?T 


PETRYl 


531 


PI00655 


7347'0 


000400 


SETIOS! 


rOMS? 


wTS,407 


532 


00Pi65i5 


660070 


200000 




TRO 


IDS, lOTEPR 


533 


(500657 


734770 


027200 




CONS' 


wTS, 20207 


534 


(100660 


6600:''0 


100070 




TRO 


lOS.IODTER 


535 


B00661 


254070 


000450 ' 




JRST 


nATNn2 


536 


000662 


000070 


000000 


N;MTRFw! 


n 




537 


(?00663 


000070 


000000 


USEWRLII 


7 




538 


000664 


700070 


000070 


USPPRU! 


7 




539 


30P665 


000070 


000073 


7LKHE0; 


7 




540 


000666 


700070 


000K7a 


UMIT! 


',. 




541 


?I00667 


7 7 k! 7 


700030 


FHCNT i 


^ 




542 


5i0t?67H 


700070 


007070 


ERRFlG: 


7 




543 


?0I'671 


000070 


000000 


CUAMTM ! 


7 




544 


?'0067;! 


003070 


000070 


LSTLnc;! 


7 




545 


!'0067;i 


0000''0 


007070 


PNTR ! 


7 




546 


00?67'l 


700B'0 


000000 


SVPNTR: 


7 




547 


000675 






wTjemiJ: 


EK.0 




548 


fl0067;i 


254000 


000443 ' 








549 


i?00676 


770270 


000070 








550 


000677 


I703il0 


007075 








551 


00f 7!1l:i 


110470 


000075 








552 


000701 


000002 


000001 








553 


?00702' 


3374''0 


000663' 








554 


000703 


000070 


007670' 









;REAniNG? 

INO RECOVERY WANTED? 

JRFALLY PERMANENT 

rTRIEO Tn REWRITE 100 T[fES 

lYES. REALLY PERMANENT 

ITRY WRITING WITH 3 INCHES OF 

IBLANK TAPE TO ERASE BAD SPOT 

(SET COMMAND TO 14 (FROM 4) 

lAMD TRY A(5AIN 

idata "issed or f9ad tape? 

;yes 

(parity error? 

lYES 

ISAVE ERROR WORD AND GO AWAY 



NO ERRORS DETECTED 
PROGRAM PREAK IS 000704 



MTAS!^X 


- MAGTAPE ROUTINES FQ 




SYMBOL T4BLE 




4DRERR 


'/■■m'i2\ 


1 EXT 


ADVOUT 


00C454 


1 


CLOKRQ 


8I0Z231 


1 


CNPCTJ 


f-m\\b 


1 


COMPAT 


71fl0H0 




CPOPJl 


(!0?i)46 


' EXT 


□ ATEtlF 


B130612 


t 


DEVIAD 


B0005I7 


INT 


□EVOAO 


00^010 


INT 


DMPBLK 


000537 


f 


EOTWT 


000315 




ERROR 


0006C.2 




lADRCK 


000473 


' EXT 


10 


000070 


INT 


lOROT 


(?040H0 


INT 


ICDTER 


100000 


INT 


lONRrK 


000100 


INT 


lOTENO 


00P000 


INT 


LEOT 


000276 




MMTSIE 


000574 


' EXT 


MTAOSP 


0000:^2 


INT 


MTAINI 


000032 




MTAP 


000243 




MTAP2 


000313 




UTASAV 


000373 


EXT 


MTBOTH 


000146 


EXT 


MTCLOK 


000171 




MTDMP2 


000534 




MTDTGO 


000345 




MTIN 


000355 




MTLOCl 


000040 


EXT 


MT0UT2 


000343 




MTREW 


400000 




MTSE 


000574 




NMTREW 


000662 




NXTCOM 


000546 




OUTPR 


004000 


INT 


PERMER 


000644 




PIDN 


000236 


EXT 


PUNIT 


000101 


EXT 


RDYCHK 


000156 




RETRYl 


00061.7 




REWCKl 


000214 




SAVCHK 


000042 




SETACT 


000576 


EXT 


STDEMS 


000137 


EXT 


TAC 


000001 


INT 


THRUT3 


000436 




TP 


000005 




TPSET 


000135 




TRVSKP 


000636 




USEWRO 


000663 




WSYNC 


000126 


EXT 
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AOVtJfE 


000454' 


FXT 


'■LKPF3 


000665' 




riRATT 


0004?3' 


FXT 


rNECT4 


000122' 




rON'EfT 


000076' 




?AT 


0000i!'5 


INT 


nATNn2 


■?I00450' 




ntvios 


0000^2 


INT 


^EVSER 


000003 


INT 


OmPENO 


a005r«7 1 




ERCNT 


000667' 




HUNGST 


000001 


INT 


ILLOP 


000611' 




lOAOT 


010000 


INT 


lODEND 


020000 


INT 


lOEND 


000040 


INT 


lOPAP 


031000 


INT 


low 


000001 


INT 


LE0T2 


0003''2' 




mtadob 


000071' 


INT 


MTAE^'D 


000675' 




mTAIMT 


000365' 


INT 


MTAP51 


000241' 




MTAP3 


000246' 




WTASRX 


000ai'a' 


INT 


"TC 


?00340 




MTCLOS 


000047 ' 




MTDMPI 


000516' 




"TFL»G 


0001517' 


EXT 


^TIM 


000357' 




MTOUT 


000330' 




MTPTRL 


000370' 




MTS 


000344 




"TTRY 


000003 




NXTCM2 


000557' 




^iXTREC 


000456' 




POP 


0000?3 


INT 


"lOFF 


000232' 


FXT 


PNTR 


000673' 




TU4M 


0000':'3 




BEMNDR 


000573' 




RETRY2 


700671 ' 




R E W c < 2 


000220' 




SAVOFV 


000240' 




<;ETir>Q 


B00457' 


EXT 


■^TOinS 


000354' 


EXT 


TAni 


0000''2 


INT 


ThRuTA 


1^00413' 




TPRDY2 


000133' 




TRYAGN 


000675' 




UNIT 


000666' 




UUO 


000014 


INT 



ADVBFF 


000504 • 


FXT 


CLOCK 


000234' 


rXT 


CNECT2 


000112' 




COMCHK 


000520' 


FXT 


CPOPJ 


000000: 


FXT 


OATEND 


000446' 




DEVDAT 


000006 


INT 


OEVNAM 


000000 


INT 


OLYRDY 


000126' 




OMPMOD 


200000 




ERRFLG 


000670' 




HUNGTP 


000071 ! 




INPTND 


000476' 




lOBKTL 


040000 


INT 


lODERR 


200000 


INT 


lOlMPM 


400000 


INT 


I OS 


000000 


INT 


JIFSC2 


000171' 


FXT 


LSTLOC 


000672' 




MTADOS 


000011 


INT 


MTAGO 


000266' 




^TALOC 


000350' 


FXT 


MTAPl 


000245' 




MTAREL 


000274' 




HTAVAL 


000432' 


rXT 


MTCLK2 


000175' 




HTDEND 


000443! 




MTDMPO 


000515' 




MTHUNG 


000575! 




MTIN2 


000362' 




MTOUTl 


000337' 




MTREO 


000461' 


rXT 


MTSI2 


000703' 


FXT 


MTWAIT 


000316' 


FXT 


NXTCM3 


000562' 




OUT 


000053' 


rXT 


POVCNT 


000600' 


FXT 


PIDMOO 


000051' 


rXT 


PROG 


000007 


INT 


OUANTM 


000671' 




RETRY 


000614' 




REWCMK 


000201' 




REWCKA 


000205' 




SET9TK 


000272" 




SET I OS 


000655' 




SVPNTR 


000674' 




THRUT2 


000434 ' 




THRUTP 


000416' 




TPREOY 


000127' 




TRYNXT 


000630' 




USFPRG 


000664* 




VMTASR 


000420 


INT 



A 


6# 


b 






ACl 


&lt 


6 






AC? 


6« 


6 






AC3 


6# 








ADRERR 


50 


423 






ADVaFE 


47 


380 






ADVBFF 


47 


4P7 






AQVO'JT 


293 


297 


380# 




AEFERR 


tn 


6 






AL 


bti 


6 






ASSCPN 


6« 


6 






ASSPRG 


6# 


6 






B 


6# 


6 






HUFPMT 


6# 


6 






RUFWRO 


6# 


6 






CLKR 


btt 


6 






CLKREQ 


183 


217 


219 


355 


CLOCK 


46 


218 






CLdKRQ 


180 


215* 






CLRACT 


47 


199 


249 


349 


CLSI.V 


6» 


6 






CLSOIJT 


6# 


6 






CMW3 


b* 


6 






CNECT2 


l?!d 


124i» 






CNECT3 


117 


128# 






CNECT4 


123 


132« 






COMCMK 


49 


422 






C0MP4T 


52* 


166 


254 


255 


CONECT 


112* 


148 


192 




CQRCMT 


6# 


6 






CPOPJ 


49 








CPOPJl 


31 


49 


85 




D 


b« 


6 






DAT 


btt 


6 


58 




DATEMQ 


335 


374# 






TATEOF 


4?2 


488i« 






DATNDZ 


376# 


535 






DCL 


&# 


6 






DCLI 


btt 


6 






nCLO 


b* 


6 






nCLR 


btt 


6 






ODI 


btt 


6 






DDO 


btt 


6 






ntiM 


btt 


6 






DEVAHR 


btt 


6 






DEVBUF 


btt 


6 






DEVCHR 


btt 


6 






DEVCTR 


btt 


6 






DEVOAT 


bit 


6 


84 


87 




312 


313 


326 


327 


DEVEXT 


btt 


6 






nEVFlL 


6» 


6 






OEVIAO 


bit 


6 


312 


313 



639« 



114 
394 



394 



187 
395 



395 



1«8 
473 



4'^3 



190 
484 



2555 



2P!6 



209 



228 



267 



294 



DEVICS 


6« 


6 


84 


190 


DEVLOG 


6# 


6 






DEVHCO 


6# 


6 






DEVNAM 


6# 


6 


206 




DEVOAO 


6# 


6 


294 




nEVPPN 


6# 


6 






DEVPTR 


6# 


6 






QEVSER 


6# 


6 


205 




DGF 


6# 


6 






CHNG 


6# 


6 






niN 


6i» 


6 






DINI 


6# 


6 






DLK 


6# 


6 






DLYRDY 


138# 


179 


181 




DMPBUK 


415 


437i» 






DMPEi'lD 


377 


41i# 






OMPMOO 


53# 


348 


376 


434 


OMT 


6# 


5 






0N4ERR 


6# 


6 






DOU 


6# 


6 






DR 


6# 


6 






OFiL 


6# 


6 






DRN 


6» 


6 






DSER 


6i» 


6 






OSI 


6l» 


6 






OSKSLB 


6# 


6 






DSO 


6# 


6 






DVAVAL 


6# 


5 






DVCDB 


6# 


6 






DVniR 


6i» 


6 






nVDIRI 


6# 


6 






nvDis 


6# 


5 






ovnSK 


en 


5 






DVDTyS 


6# 


6 






nviN 


6# 


6 






nVLNn 


6# 


6 






nvLPT 


6* 


6 






DVMTA 


6# 


6 






nvnuT 


6# 


6 






nvPTP 


6# 


6 






nVPTR 


6i» 


t) 






OVTTY 


6# 


6 






ENTRP 


6# 


6 






FOTWT 


261 


266 


275# 




ERCMT 


1A3 


390 


493 


541l!i 


fRRFLG 


73 


330 


496 


511 


ERROR 


333 


477# 






FB^'ERR 


bit 


6 






FNFERR 


bit 


b 






FRGSFG 


bit 


6 






FT2RFL 


6# 








FTiTTA 


6# 








FTCHFC 


6# 









2?8 



267 



3?7 



484 



519 



542# 



rTFX4M 


6# 






FTFIVI 


6# 






FTRETT 


6# 






FTHALT 


6« 






FTKCT 


6# 






FTMOMP 


6« 






FTPRV 


6« 






FTRA1I3 


6# 






FTRCHK 


6# 






FTRE4S 


6» 






FTSLFE 


6« 






FTTALK 


6# 






FTTII>fE 


6« 






FTTRiC 


6* 






FTTROS 


tn 






FTTTYS 


b» 






HSAMSK 


6# 


6 




HSAPIS 


6« 


6 




HSASIi 


6# 


6 




HUNGCT 


6# 


6 




HUNGST 


6« 


6 


M 


HUNGTP 


19 


l-'t* 




I 


6# 


6 




lAORrK 


50 


396 




IB 


6# 


6 




ISIJFR 


5« 


5 




iclo<;b 


6* 


6 




ILLOP 


215 


2"9 


482 


ILM 


6# 






ILUERR 


6# 


6 




INgPB 


6# 


6 




IMT« 


6# 


6 




INPB 


6# 


6 




INPTVD 


379 


4f 1# 




10 


6« 


6 


292 


I04CT 


6# 


6 


3?-6 


lOBEG 


6« 


6 




lOi^KTL 


6* 


6 


291 


lOnOT 


6# 


6 


342 


IQCON- 


6# 


6 




lODEVD 


6# 


6 


268 


lODERR 


6# 


6 


532 


lODTFR 


6# 


6 


5.54 


lOENO 


6* 


6 


496 


lOFST 


6*' 


6 




lOIMPM 


6# 


6 


95 


lONRCK 


6*< 


6 


492 


lOPAR 


6# 


6 


157 


I OS 


6# 


6 


"3 




196 


198 


227 




340 


342 


343 




4?6 


4?7 


431 




492 


521 


522 



311 
481 



432 
34J 



34k3 



431 
52^ 

84 
228 
343 
43? 
532 



378 



417 



4fl3 



9 5 
2': 4 

J46 

434 
5 34 



392 



419 



42B 



4?7 



439 



456 



521 



487 



1("6 
255 
348 
439 



122 
2^7 
376 
441 



128 

268 
376 
456 



152 
291 
383 
457 



157 
292 
392 
4S1 



166 
3!?6 
417 
483 



175 
311 
419 
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